home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / patchSG0002222.idb / var / www / cgi-bin / wrap.z / wrap
Encoding:
Text File  |  1997-07-30  |  20.4 KB  |  889 lines
  1. #!/usr/bin/perl
  2.  
  3. #__________________________________________________________
  4. #
  5. #    File:    wrap
  6. #    By:      Matt Ho
  7. #   Date:    7/23/95
  8. #   Purpose: Wrapper to dynamically create HTML documents
  9. #            that contain a easy to read directory content.
  10. #__________________________________________________________
  11.  
  12.  
  13. require "flush.pl";
  14.  
  15. #__________________________________________________________
  16. #
  17. #   SGI Patch 2222 disables the 'download' feature for
  18. #   security reasons. This functionality will removed
  19. #   entirely in the next release.
  20. #
  21. #   The supported way for a user to download a file is
  22. #   to use the browser 'Save Link' feature.
  23. #
  24. #   If you need to restore this functionality, and you are
  25. #   behind a firewall, and trust all others behind that
  26. #   firewall, then change the line below to:
  27. #        $HANDLER_DISABLED = 0 ;
  28. #__________________________________________________________
  29.  
  30. $HANDLER_DISABLED = 1 ;
  31.  
  32. #__________________________________________________________
  33. #
  34. #    Set some environment variables, we'll need through the
  35. #    script and do some initial error checking.
  36. #__________________________________________________________
  37.  
  38. $ROOT     = "/var/www/htdocs" ;    # Root directory
  39. $PATH     = $ENV{'PATH_INFO'} ; 
  40. $wrap     = "/cgi-bin/wrap" ;        # Script alias for this CGI
  41. $ls       = "/sbin/ls -a1" ;
  42. $outboxcgi = "/var/www/cgi-bin/outbox-cgi" ;
  43. #__________________________________________________________
  44. #
  45. #    Read the form data in.  PATH_INFO may be passed here
  46. #    if this was called from a SSI.  We're going to make
  47. #    one final tweak and read from the arg list as well
  48. #    for SSI's.
  49. #__________________________________________________________
  50.  
  51. if( $ENV{'REQUEST_METHOD'} eq "GET" )
  52. {
  53.    $buffer=$ENV{'QUERY_STRING'} ;
  54. } 
  55. else
  56. {
  57.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
  58. }
  59.  
  60. @pairs = split(/&/, $buffer) ;
  61. foreach (@pairs)
  62. {
  63.     tr/+/ / ;    
  64.    ($name,$value) =  split(/=/) ;
  65.     $value        =~ s/%(..)/pack("c",hex($1))/ge ;
  66.     $name         =~ s/%(..)/pack("c",hex($1))/ge ;
  67.  
  68.     $FORM{$name} = $value ;
  69. }
  70.  
  71. #_________________________________
  72. #
  73. #    Some basic checks to take
  74. #    care of
  75. #_________________________________
  76.  
  77. if( $ARGV[0] )
  78. {
  79.     $PATH = $ARGV[0] ;
  80.     $arg  = 1 ;
  81. }
  82.  
  83. # trim off undesirable meta chars.
  84. $PATH =~ s/[|;]//g ;
  85.  
  86. chop $PATH if substr($PATH, -1) eq "/" ;
  87. @_        = split('/', $PATH) ;
  88. $pathRoot = $_[$#_] ;
  89. $doc      = $ROOT.$PATH ;
  90.  
  91. &ErrBadPath if ! defined $PATH || $PATH eq "" ; # check for empty path
  92. &ErrBadPath unless &ValidPath ;    # Check for server spoofing
  93. &ErrBadPath unless -e $doc ;    # Check to see it exists
  94. &ErrBadPath if -f $doc ;    # Don't allow download of file via wrap
  95.  
  96. #__________________________________________________________
  97. #
  98. #    If we get to this point, we can be reasonably certain
  99. #    that this is a valid shared directory.  We want to
  100. #    show it using the appropriate method.  The following
  101. #    section is the leading data.  ShowContents will supply
  102. #    the rest of the data.
  103. #
  104. #    We do, however, need to account for the user putting
  105. #    an index.html file in the directory.  We'll handle 
  106. #    that as follows.  If the file exists, it is assumed to
  107. #    be in the right.  We will append out data at the end,
  108. #    using the index.html's head section. Otherwise, we
  109. #    will use ours.
  110. #__________________________________________________________
  111.  
  112. if( $arg == 1 )
  113. {
  114.     #    This is intentionally left blank
  115. }
  116. elsif( -r "$doc/index.html" )
  117. {
  118.     print "Content-type: text/html\n\n" ;
  119.  
  120.     open(INDEX, "$doc/index.html") ;
  121.     while( <INDEX> )
  122.     {
  123.         s/<!--#exec/<!-- exec/g ;
  124.         last if /<\/[bB][oO][dD][yY]>/ ;
  125.         last if /<\/[hH][tT][mM][lL]>/ ;
  126.         print ;
  127.         if ( /<BODY/ || /<body/)
  128.         {
  129.             if ( ! />/ )
  130.             {
  131.             while( <INDEX> )
  132.             {
  133.                 print ;
  134.                 last if ( />/ ) ;
  135.             }
  136.             }
  137.             &flush(STDOUT) ;
  138.             system '/var/www/cgi-bin/outbox-cgi', $PATH;
  139.         }
  140.     }
  141.     close(INDEX) ;
  142. }
  143. else
  144. {
  145.     print <<ENDOFTEXT ;
  146. Content-type: text/html
  147.  
  148. <head>
  149.     <title>
  150.         $pathRoot
  151.     </title>
  152. </head>
  153.  
  154. <body bgcolor="c1c1c1" text="000000" link="0000ee" vlink="0000ee"
  155. alink="0000ff" background="/outbox/images/background.gif">
  156. ENDOFTEXT
  157.  
  158.         &flush(STDOUT) ;
  159.     system '/var/www/cgi-bin/outbox-cgi', $PATH ;
  160.     &flush(STDOUT) ;
  161.     print <<ENDOFTEXT ;
  162. <B>$pathRoot:</B>
  163. ENDOFTEXT
  164. }
  165.  
  166. #
  167. # RFE - people getting confused with all these choices.
  168. #
  169. #  &ShowSelection ;
  170.  
  171. &ShowContents ;
  172.  
  173. print "\n</body>\n</html>\n\n" unless $arg == 1 ;
  174.  
  175.  
  176.  
  177. #__________________________________________________________
  178. #__________________________________________________________
  179. #__________________________________________________________
  180.  
  181.  
  182.  
  183. sub ErrBadPath
  184. {
  185.     print <<ENDOFTEXT ;
  186. Content-type: text/html
  187.  
  188. <HTML>
  189. <HEAD><TITLE>OutBox: File Not Found</TITLE></HEAD>
  190. <BODY><H2>OutBox: File Not Found</H2>
  191. The requested file "$PATH" was not found on this OutBox page.
  192. <P>
  193. ENDOFTEXT
  194.  
  195. if( defined $ENV{'HTTP_REFERER'} )
  196. {
  197.     $referer = $ENV{'HTTP_REFERER'} ;
  198.     print <<ENDOFTEXT ;
  199. <a href="$referer"><IMG SRC="/outbox/images/go-back.gif" BORDER=0 ALT="Back"></A>
  200. ENDOFTEXT
  201. }
  202.  
  203.         print <<ENDOFTEXT ;
  204. </BODY>
  205. </HTML>
  206. ENDOFTEXT
  207.  
  208.  
  209.     exit ;
  210. }
  211.  
  212. #__________________________________________________________
  213.  
  214. sub ValidPath
  215. {
  216.     return 1 unless /\.\./ ;
  217.     
  218.     return '' if /^\.\./ ;
  219.     return '' if /\/\.\.\// ;
  220.     return '' if /\.\.$/ ;
  221.  
  222.     return 1 ;
  223. }
  224.  
  225. #__________________________________________________________
  226.  
  227. sub IsHiddenFile
  228. {
  229.         local($fname) = $_[$#_];
  230.  
  231.     return 1 if $fname eq "index\.html" ;
  232.     return 1 if $fname eq "index\.html\.O" ;
  233.     return 1 if $fname eq "index\.html\.N" ;
  234.     return 1 if $fname eq "index\.shtml" ;
  235.     return 1 if $fname eq "index\.shtml\.O" ;
  236.     return 1 if $fname eq "index\.shtml\.N" ;
  237.     return 1 if $fname eq "default\.gif" ;
  238.     return 1 if ( $fname =~ /^\./ ) ;
  239.     return 1 if ( $fname =~ /\.bak$/ ) ;
  240.     return 1 if ( $fname =~ /\.sav$/ ) ;
  241.     return 1 if ( $fname =~ /~$/ ) ;
  242.  
  243.     return '' ;
  244. }
  245.  
  246. #__________________________________________________________
  247.  
  248. sub ShowSelection
  249. {
  250.     local(@select) ;
  251.     
  252.     $FORM{'format'} = "default" unless defined $FORM{'format'} ;
  253.     $select{$FORM{'format'}} = "checked" ;
  254.  
  255.     print <<ENDOFTEXT ;
  256.  
  257. <center>
  258. <table cellpadding=2 cellspacing=0 border=0>
  259. <form action="$wrap$PATH" method=get>
  260. <tr>
  261.     <td><b>Viewing format:</b>
  262.         <input    type="radio"
  263.                 name="format"
  264.                 value="default"
  265.                 $select{'default'}> Default
  266.         <input    type="radio"
  267.                 name="format"
  268.                 value="long"
  269.                 $select{'long'}> Long
  270.         <input    type="radio"
  271.                 name="format"
  272.                 value="short"
  273.                 $select{'short'}> Short </th>
  274.     <td align=center>
  275.         <input type="submit" value="Apply"></td>    
  276. </tr>
  277. </form>
  278. </table>
  279. </center>
  280.  
  281. ENDOFTEXT
  282. }
  283.  
  284.  
  285. #__________________________________________________________
  286.  
  287. sub ShowContents
  288. {
  289.     local($format) = $FORM{'format'} ;
  290.  
  291.     #_________________________________
  292.     #
  293.     #    Get the directory and do
  294.     #    some sorting (directories)
  295.     #    come first, then files.
  296.     #_________________________________
  297.  
  298.     open (FIND,"$ls $ROOT$PATH |") ;
  299.     while( <FIND> )
  300.     {
  301.         chop ;
  302.         next if $_ eq "\." ;
  303.         next if ( $_ eq "\.\." && "/$pathRoot" eq  $PATH ) ;
  304.         next if ( /^\./ && $_ ne "\.\." ) ;
  305.         next if $_ eq "RCS" ;
  306.         next if ( ! -r "$ROOT$PATH/$_" ) ;
  307.         next if ( -d "$ROOT$PATH/$_" && ! -x "$ROOT$PATH/$_" ) ;
  308.         push(@d, $_), next if -d "$ROOT$PATH/$_" ;
  309.         push(@f, $_) ;
  310.     }
  311.  
  312.     #_________________________________
  313.     #
  314.     #    Select method of display
  315.     #_________________________________
  316.  
  317.     &ListFolders(@d) ;
  318.  
  319.     $format = "default" if ! defined $format ;
  320.  
  321.     if( $format eq "long" )
  322.     {
  323.         &ListLong(@f) ;
  324.     }
  325.     elsif( $format eq "short" )
  326.     {
  327.         &ListShort(@f) ;
  328.     }
  329.     else        # default format
  330.     {
  331.         &ListDefault(@f) ;
  332.     }
  333. }
  334.  
  335. #__________________________________________________________
  336.  
  337. sub ListFolders
  338. {
  339.     local($size) = $#_ + 1 ;
  340.     local($i) ;
  341.     local($j) ;
  342.     local($index) ;
  343.     local($format) ;
  344.     local($cols) = 3 ;
  345.     local($rows) = $size / $cols ;
  346.     local($left) = $size % $cols ;
  347.     local($label) ;
  348.     local($image) ;
  349.  
  350.     return if $size == 0 ;
  351.  
  352.     #_________________________________
  353.  
  354.     $format = "?format=$FORM{'format'}" if defined $FORM{'format'} ;
  355.  
  356.     #_________________________________
  357.  
  358.     $rows = sprintf("%.0d", $rows) ;
  359.     $rows++ if $left > 0 ;
  360.     
  361.     print <<ENDOFTEXT ;
  362. </center>
  363. <table cellpadding=0 cellspacing=0 width="100%" border=0>
  364. ENDOFTEXT
  365.     LOOP:
  366.     for( $i = 0 ; $i < $rows ; $i++ )
  367.     {
  368.         print "<tr>\n" ;
  369.         for( $j = 0 ; $j < $cols ; $j++ )
  370.         {
  371.             $index = $i + $j * $rows ;
  372.  
  373.             if( $index >= $size )
  374.             {
  375.                 print "<td></td>\n" ;
  376.                 next ;
  377.             }
  378.             if ( $_[$index] eq ".." )
  379.             {
  380.                 $label = "" ;
  381.                 $image = "/outbox/images/go-back.gif" ;
  382.             }
  383.             else
  384.             {
  385.                 $label = "$_[$index]" ;
  386.                 $image = "/outbox/images/file_folder.gif" ;
  387.             }
  388.  
  389.             print <<ENDOFTEXT ;
  390. <td>
  391.     <a href="$wrap$PATH/$_[$index]/$format"><img src="$image" align=middle border=0></a>
  392. ENDOFTEXT
  393.                         if ( $label ne "" )
  394.             {
  395.                 print "  <a href=\"$wrap$PATH/$_[$index]/$format\">$label</a>" ;
  396.                 }
  397.             print "</td>"
  398.         }
  399.         print "</tr>\n" ;
  400.     }
  401.  
  402.     print <<ENDOFTEXT ;
  403. </table>
  404. ENDOFTEXT
  405. }
  406.  
  407. #__________________________________________________________
  408.  
  409. sub ListDefault
  410. {
  411.     local(@notes) ;
  412.     local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,@other) ;
  413.     local($USERPATH) = $PATH ;
  414.     local($first) = 1 ;
  415.     local($image) ;
  416.     local($url) ;
  417.  
  418.     $dltext = `/usr/bin/gettxt uxoutbox:22 "(download)"` ;
  419.  
  420.     return if ( $#_ == -1 ) ;
  421.  
  422.     substr($USERPATH, 0, 1) = "/~" ;
  423.  
  424.     print <<ENDOFTEXT ;
  425.  
  426. </center>
  427. <div align=left>
  428. ENDOFTEXT
  429.  
  430.     foreach (@_)
  431.     {
  432.             next if &IsHiddenFile($_) ;
  433.  
  434.         if ( /\.notes$/ )
  435.         {
  436.             $base = $_ ;
  437.             $base =~ s/\.notes$// ;
  438.             next if -r "$doc/$base" ;
  439.         }
  440.  
  441.         if ($first == 1)
  442.         {
  443.             $first = 0 ;
  444.             print "<HR ALIGN=LEFT WIDTH=\"80%\">\n" if ($#d >= 0) ;
  445.             print "<table cellpadding=0 cellspacing=1 border=0>" ;
  446.         }
  447.  
  448.         #_________________________________
  449.         #
  450.         #    Calculate the size of this
  451.         #    file
  452.         #_________________________________
  453.  
  454.         ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,@other) =
  455.             stat("$doc/$_") ; 
  456.  
  457.         if( $size == 1 )
  458.         {
  459.             $size = "<b>$size</b> byte" ;
  460.         }
  461.         elsif( $size >= 1024 )
  462.         {
  463.             $size = $size / 1024 ;
  464.             $size = sprintf("%.0d", $size) ;
  465.             $size = "<b>$size</b> KB" ;
  466.         }
  467.         else
  468.         {
  469.             $size = "<b>$size</b> bytes" ;
  470.         }
  471.  
  472.         #_________________________________
  473.         #
  474.         #    Add notes if applicable
  475.         #_________________________________
  476.  
  477.         if( -r "$doc/$_.notes" )
  478.         {
  479.             open(DATA, "$doc/$_.notes") ;
  480.             @notes = <DATA> ;
  481.             close(DATA) ;
  482.         }
  483.         
  484.         #_________________________________
  485.         #
  486.         # figure out which image to use
  487.         #_________________________________
  488.  
  489.         # defaults
  490.  
  491.         $image = "" ;
  492.         $url = "" ;
  493.  
  494.         # audio
  495.  
  496.         $image = "file_audio.gif" if ( /\.[aA][uU]$/ ) ;
  497.         $image = "file_audio.gif" if ( /\.[aA][iI][fF]$/ ) ;
  498.         $image = "file_audio.gif" if ( /\.aif[cf]$/ ) ;
  499.         $image = "file_audio.gif" if ( /\.[sS][nN][dD]$/ ) ;
  500.         $image = "file_audio.gif" if ( /\.[wW][aA][vV]$/ ) ;
  501.         $image = "file_audio.gif" if ( /\.[rR][aA]$/ ) ;
  502.         $image = "file_audio.gif" if ( /\.[rR][aA][mM]$/ ) ;
  503.         $image = "file_audio.gif" if ( /\.[aA][bB][sS]$/ ) ;
  504.         $image = "file_audio.gif" if ( /\.[mM][pP][2a]$/ ) ;
  505.         $image = "file_audio.gif" if ( /\.[mM][pP][2a][2a]$/ ) ;
  506.         $image = "file_audio.gif" if ( /\.[mM][pP][eE][gG][aA]$/ ) ;
  507.  
  508.         # image
  509.  
  510.         $image = "file_image.gif" if ( /\.[gG][iI][fF]$/ ) ;
  511.         $image = "file_image.gif" if ( /\.[iI][eE][fF]$/ ) ;
  512.         $image = "file_image.gif" if ( /\.tiff$/ ) ;
  513.         $image = "file_image.gif" if ( /\.[tT][iI][fF]$/ ) ;
  514.         $image = "file_image.gif" if ( /\.[jJ][pP][gG]$/ ) ;
  515.         $image = "file_image.gif" if ( /\.jpeg$/ ) ;
  516.         $image = "file_image.gif" if ( /\.[jJ][pP][eE]$/ ) ;
  517.         $image = "file_image.gif" if ( /\.rgb$/ ) ;
  518.         $image = "file_image.gif" if ( /\.ras$/ ) ;
  519.         $image = "file_image.gif" if ( /\.pcd$/ ) ;
  520.         $image = "file_image.gif" if ( /\.p[nbgp]m$/ ) ;
  521.         $image = "file_image.gif" if ( /\.x[bp]m$/ ) ;
  522.         $image = "file_image.gif" if ( /\.xwd$/ ) ;
  523.         $image = "file_image.gif" if ( /\.icon$/ ) ;
  524.         $image = "file_image.gif" if ( /\.fti$/ ) ;
  525.  
  526.         # video
  527.  
  528.         $image = "file_movie.gif" if ( /\.movie$/ ) ;
  529.         $image = "file_movie.gif" if ( /\.[mM][oO][vV]$/ ) ;
  530.         $image = "file_movie.gif" if ( /\.moov$/ ) ;
  531.         $image = "file_movie.gif" if ( /\.[mM][vV]$/ ) ;
  532.         $image = "file_movie.gif" if ( /\.[qQ][tT]$/ ) ;
  533.         $image = "file_movie.gif" if ( /\.[aA][vV][iI]$/ ) ;
  534.         $image = "file_movie.gif" if ( /\.[mM][pP][eEgGsSvV]$/ ) ;
  535.         $image = "file_movie.gif" if ( /\.[mM][pP][2sSvV][2sSvV]$/ ) ;
  536.         $image = "file_movie.gif" if ( /\.[mM][pP][eE][gG]$/ ) ;
  537.         $image = "file_movie.gif" if ( /\.[mM][pP][eE][gG][vV]$/ ) ;
  538.  
  539.         # html
  540.  
  541.         $image = "file_html.gif" if ( /\.[hH][tT][mM][lL]$/ ) ;
  542.         $image = "file_html.gif" if ( /\.[hH][tT][mM]$/ ) ;
  543.         $image = "file_html.gif" if ( /\.[sS][hH][tT][mM][lL]$/ ) ;
  544.  
  545.         # PostScript
  546.  
  547.         $image = "file_ps.gif" if ( /\.[pP][sS]$/ ) ;
  548.         $image = "file_ps.gif" if ( /\.[eE][pP][sS]$/ ) ;
  549.  
  550.         # text
  551.  
  552.         $image = "file_text.gif" if ( /\.[tT][xX][tT]$/ ) ;
  553.         $image = "file_text.gif" if ( /\.[rR][tT][xX]$/ ) ;
  554.         $image = "file_text.gif" if ( /\.[rR][tT][fF]$/ ) ;
  555.         $image = "file_text.gif" if ( /\.doc$/ ) ;
  556.         $image = "file_text.gif" if ( /\.fm$/ ) ;
  557.         $image = "file_text.gif" if ( /\.mif$/ ) ;
  558.  
  559.         # development
  560.  
  561.         $image = "file_makefile.gif" if ( /[Mm]akefile.*$/ ) ;
  562.         $image = "file_core.gif" if ( $_ eq "core" ) ;
  563.         $image = "file_h.gif" if ( /\.[hH]$/ ) ;
  564.         $image = "file_c.gif" if ( /\.c$/ ) ;
  565.         $image = "file_cxx.gif" if ( /\.[cC[xX][xX]$/ ) ;
  566.         $image = "file_cxx.gif" if ( /\.[cC]\+\+$/ ) ;
  567.         $image = "file_cxx.gif" if ( /\.C$/ ) ;
  568.         $image = "file_cxx.gif" if ( /\.[cC][cC]$/ ) ;
  569.         $image = "file_obj.gif" if ( /\.[oO]$/ ) ;
  570.         $image = "file_java.gif" if ( /\.java$/ ) ;
  571.         $image = "file_javaclass.gif" if ( /\.class$/ ) ;
  572.  
  573.         # showcase
  574.  
  575.         $image = "file_showcase.gif" if ( /\.sc$/ ) ;
  576.         $image = "file_showcase.gif" if ( /\.slides$/ ) ;
  577.         $image = "file_showcase.gif" if ( /\.sho$/ ) ;
  578.         $image = "file_showcase.gif" if ( /\.show$/ ) ;
  579.  
  580.         # command scripts
  581.  
  582.         $image = "file_shell.gif" if ( /\.pl$/ ) ;
  583.         $image = "file_shell.gif" if ( /\.sh$/ ) ;
  584.         $image = "file_shell.gif" if ( /\.csh$/ ) ;
  585.  
  586.         # DOS/Windows
  587.  
  588.         $image = "file_ms_exe.gif" if ( /\.[bB][aA][tT]$/ ) ;
  589.         $image = "file_ms_exe.gif" if ( /\.[eE][xX][eE]$/ ) ;
  590.         $image = "file_ms_exe.gif" if ( /\.[cC][oO][mM]$/ ) ;
  591.         $image = "file_ms_pp.gif" if ( /\.[pP][pP][tT]$/ ) ;
  592.         $image = "file_ms_access.gif" if ( /\.[aA][dD][bB]$/ ) ;
  593.         if ( /\.[xX][lL].$/ )
  594.         {
  595.             open(FILE, "$ROOT/$PATH/$_") ;
  596.             read(FILE,$buf,3);
  597.             $image = "file_ms_excel.gif"
  598.             if (substr($buf,0,2) eq "\xd0\xcf" ||
  599.                 substr($buf,0,1) eq "\x09" &&
  600.                 substr($buf,2,1) eq "\x06") ;
  601.             close(FILE);
  602.         }
  603.         if ( /\.[dD][oO][cCtT]$/ )
  604.         {
  605.             open(FILE, "$ROOT/$PATH/$_") ;
  606.             read(FILE,$buf,2);
  607.             $image = "file_ms_word.gif"
  608.             if ($buf eq "\xfe\x37" ||
  609.                 $buf eq "\xdb\xa5" ||
  610.                 $buf eq "\xd0\xcf") ;
  611.             close(FILE);
  612.         }
  613.         if ( /\.[fF][mM]$/ )
  614.         {
  615.             open(FILE, "$ROOT/$PATH/$_") ;
  616.             read(FILE,$buf,4);
  617.             $image = "file_claris_fm.gif"
  618.             if ($buf eq "\x00\x01\x00\x00" ||
  619.                 $buf eq "\x00\x02\x00\x00") ;
  620.             close(FILE);
  621.         }
  622.  
  623.  
  624.         # other
  625.  
  626.         $image = "file_iv.gif" if ( /\.iv$/ ) ;
  627.         $image = "file_iv.gif" if ( /\.ano$/ ) ;
  628.         $image = "file_tar.gif" if ( /\.[tT][aA][rR]$/ ) ;
  629.         $image = "file_compress.gif" if ( /\.[gG][zZ]$/ ) ;
  630.         $image = "file_compress.gif" if ( /\.[tT][gG][zZ]$/ ) ;
  631.         $image = "file_compress.gif" if ( /\.Z$/ ) ;
  632.         $image = "file_vrml.gif" if ( /\.vrml$/ ) ;
  633.         $image = "file_vrml.gif" if ( /\.vrml\.gz$/ ) ;
  634.         $image = "file_vrml.gif" if ( /\.wrl$/ ) ;
  635.         $image = "file_vrml.gif" if ( /\.wrl\.gz$/ ) ;
  636.         $image = "file_midi.gif" if ( /\.[mM][iI][dD]$/ ) ;
  637.         $image = "file_midi.gif" if ( /\.[mM][iI[dD][iI]$/ ) ;
  638.         $image = "file_pdf.gif" if ( /\.[pP][dD][fF]$/ ) ;
  639.         $image = "file_director.gif" if ( /\.[dD][cCxXiI][rR]$/ ) ;
  640.  
  641.         # generic ms-windows application data
  642.                 # (i.e. has suffix, no types above match)
  643.         if ( $image eq "" && /..*\...*$/ )
  644.         {
  645.             open(FILE, "$ROOT/$PATH/$_") ;
  646.             read(FILE,$buf,16);
  647.             $image = "file_ms_generic.gif"
  648.             if ($buf eq "\xd0\xcf\x11\xe0\xa1\xb1\x1a\xe1\x00\x00\x00\x00\x00\x00\x00\x00" ||
  649.                 $buf eq "\x09\x04\x06\x00\x00\x00\x10\x00\xf6\x05\x5c\x00\x20\x00\x03\x2e") ;
  650.             close(FILE);
  651.         }
  652.  
  653.         # types without suffix
  654.         
  655.         if ( $image eq "" )
  656.         {
  657.             open(FILE, "$ROOT/$PATH/$_") ;
  658.             if ( $string = <FILE> )
  659.             {
  660.             # WebJumper
  661.             if ( $string =~ /^\#SGIWebJumpsite/ ||
  662.                  $string =~ /^\#NetscapeURL/ )
  663.             {
  664.                 $image = "file_webjumper.gif";
  665.                 while ( $string = <FILE> )
  666.                 {
  667.                 $string =~ s/\n$// ;
  668.  
  669.                 # look for ://, and other url types
  670.                 if ( $string =~ /:\/\// ||
  671.                     $string =~ /^mailto:/ ||
  672.                     $string =~ /^file:/ ||
  673.                     $string =~ /^about:/ ||
  674.                     $string =~ /^news:/ ||
  675.                     $string =~ /^mailbox:/ )
  676.                 {
  677.                     # don't view it, go to it.
  678.                     $url = $string ;
  679.                     last ;
  680.                 }
  681.                 else
  682.                 {
  683.                     # use as a note, if no .notes file
  684.                     @notes = ( $string )
  685.                     if ( @notes == 0 &&
  686.                          $string ne "URL Pasted into Desktop" ) ;
  687.                 }
  688.                 }
  689.             }
  690.  
  691.             # command script
  692.             $image = "file_shell.gif" if ( $string =~ /^\#!\/bin\/.*sh/ ) ;
  693.             $image = "file_shell.gif" if ( $string =~ /^\#!\/usr\/s*bin\/perl/ ) ;
  694.             }
  695.             close(FILE) ;
  696.         }
  697.  
  698.         # generic executable
  699.         
  700.         if ( $image eq "" )
  701.         {
  702.             $image = "file_exec.gif" if ( -x "$ROOT/$PATH/$_" ) ;
  703.         }
  704.  
  705.         # default to generic data file icon
  706.  
  707.         $image = "file_data.gif" if ( $image eq "" ) ;
  708.  
  709.         # default to view data
  710.  
  711.         $url = "$USERPATH/$_" if ( $url eq "" ) ;
  712.  
  713.         #_________________________________
  714.         #
  715.         #    Diplay the data in table form
  716.         #_________________________________
  717.  
  718.         print <<ENDOFTEXT ;
  719. <tr>
  720.     <td>
  721.         <a href="$url"><img src="/outbox/images/$image" align=middle border=0></a>
  722.     </td>
  723.     <td>
  724.         <a href="$url">$_</a>
  725.     </td>
  726.     <td>
  727.         $size
  728.     </td>
  729.     <td align=left>
  730. ENDOFTEXT
  731.                 if ( $HANDLER_DISABLED == 0 ) {
  732.                     print "<a href=\"/cgi-bin/handler$PATH/$_?data=Download\">$dltext</a>\n" ;
  733.         }
  734.                 print "        </td>\n" ;
  735.  
  736.         #_________________________________
  737.         #
  738.         #    If there is a .notes file,
  739.         #    show the message within the
  740.         #    HTML doc.
  741.         #_________________________________
  742.  
  743.         if ( @notes > 0 )
  744.         {
  745.             print "<td>" ;
  746.             foreach (@notes)
  747.             {
  748.                 print ;
  749.             }
  750.             print "</td>\n" ;
  751.             @notes = () ;
  752.         }
  753.         print "</tr>\n" ;
  754.     }
  755.     print "</table></center>\n" if $first == 0 ;
  756. }
  757.  
  758. #__________________________________________________________
  759.  
  760. sub ListShort
  761. {
  762.     local($size) = $#_ + 1 ;
  763.     local($i) ;
  764.     local($j) ;
  765.     local($index) ;
  766.     local($cols) = 3 ;
  767.     local($rows) = $size / $cols ;
  768.     local($left) = $size % $cols ;
  769.  
  770.     return if $size == 0 ;
  771.  
  772.     $rows = sprintf("%.0d", $rows) ;
  773.     $rows++ if $left > 0 ;
  774.     
  775.     print <<ENDOFTEXT ;
  776.  
  777. </center>
  778. <h3>Shared Files:</h3>
  779.  
  780. <table cellpadding=5 cellspacing=3 border width="100%"><tr><td>
  781. <table cellpadding=3 width="100%">
  782. ENDOFTEXT
  783.     LOOP:
  784.     for( $i = 0 ; $i < $rows ; $i++ )
  785.     {
  786.         print "<tr>\n" ;
  787.         for( $j = 0 ; $j < $cols ; $j++ )
  788.         {
  789.             $index = $i + $j * $rows ;
  790.             if( $index >= $size )
  791.             {
  792.                 print "<td></td>\n" ;
  793.                 next ;
  794.             }
  795.             print <<ENDOFTEXT ;
  796. <td>
  797.     <a href="$PATH/$_[$index]">
  798.         <img src="/outbox/images/file_data.gif" align=middle border=0>  
  799.         $_[$index]
  800.     </a>
  801. </td>
  802. ENDOFTEXT
  803.         }
  804.         print "</tr>\n" ;
  805.     }
  806.  
  807.     print <<ENDOFTEXT ;
  808. </table>
  809. </td></tr></table>
  810. ENDOFTEXT
  811. }
  812.  
  813. #__________________________________________________________
  814.  
  815. sub ListLong
  816. {
  817.     local($unit) ;
  818.     local(@other) ;
  819.     local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) ;
  820.     local($atime, $mtime, $ctime) ;
  821.     local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) ;
  822.     
  823.     return if $#_ == -1 ;
  824.     
  825.     print <<ENDOFTEXT ;
  826.  
  827. <h3>Shared Files:</h3>
  828. <table cellpadding=5 cellspacing=3 border width="100%">
  829. <tr><td>
  830. <pre>
  831.  
  832. ENDOFTEXT
  833.  
  834.     foreach (@_)
  835.     {
  836.         #_________________________________
  837.         #
  838.         #    stat document and get the 
  839.         #    pertinent info on it.  Also
  840.         #    get a unit for the size, ie
  841.         #    bytes or Kb, etc
  842.         #_________________________________
  843.         
  844.         ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  845.             $atime, $mtime, $ctime, @other) =
  846.             stat("$doc/$_") ; 
  847.  
  848.         if( $size == 1 )
  849.         {
  850.             $unit = "byte" ;
  851.         }
  852.         elsif( $size >= 1024 )
  853.         {
  854.             $size = $size / 1024 ;
  855.             $size = sprintf("%.0d", $size) ;
  856.             $unit = "KB" ;
  857.         }
  858.         else
  859.         {
  860.             $unit = "bytes" ;
  861.         }
  862.  
  863.         #_________________________________
  864.         #
  865.         #    Get last mod time
  866.         #_________________________________
  867.  
  868.         ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,@other) = 
  869.             localtime($ctime) ;
  870.         $theDay   = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday] ;
  871.         $theMonth = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon] ;
  872.         $date     = sprintf("$theDay $theMonth $mday %02d:%02d:%02d 19$year",
  873.                             $hour, $min, $sec) ;
  874.  
  875.         #_________________________________
  876.  
  877.         local($filler) = " " x (25 - length($_)) ;
  878.         $filler = 0 if $filler < 0 ;
  879.         print sprintf("<a href=\"$PATH/$_\"><img src=\"/outbox/images/file_data.gif\" align=middle border=0>  %.25s</a>%s %6d %-5.5s %s\n", $_, $filler, $size, $unit, $date) ;
  880.     }
  881.  
  882.     print <<ENDOFTEXT ;
  883. </pre>
  884. </td></tr>
  885. </table>
  886. ENDOFTEXT
  887. }
  888.  
  889.